home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / ClassManag.cpt / Class-Management / background_11909.xml next >
Extensible Markup Language  |  1992-06-18  |  3KB  |  13 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>11909</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_2067.css" />
  10.     <name>Statistics</name>
  11.     <script>on HiLoAvset lockScreen to trueset lockMessages to trueset cursor to 4global wunglobal TotQzglobal higlobal loglobal holdorglobal totalput 0 into totalput 0 into holdorput 0 into varput 0 into highput 0 into looperput 110 into lowput the number of cards into loopEndput value of (loopEnd - 2) into loopergo first cardrepeat with counter = 1 to looperif background field wun is empty then add 0 to holdorelseput value of background field wun into holdorif holdor >= 0 thenadd holdor to totalif holdor < low then ¬¨put holdor into lowif holdor > high then ¬¨put holdor into highadd 1 to varend ifend ifgo nextend repeatput total / var into holderset the numberFormat to "0.0"go to card statsset lockScreen to falseset lockMessages to falseput holder into card field TotQzput high into card field hiput low into card field loend HiLoAvon SDeviateset lockScreen to true -- you don't see the movement of cardsset lockMessages to true -- don't interfere while I'm processingset cursor to 4 -- watch the watchglobal nbr -- contains individual scores separated by commasglobal var -- contains number scores-- both of above are used to transfer into to Graph stackglobal counterglobal wunglobal mainLoopglobal TotQzglobal lessglobal avrgglobal StatDevput empty into nbrput 0 into mainLoop -- initialize the variablesput 0 into counterput 0 into devput 0 into varput 0 into deviateput 0 into lessput value of card field TotQz into avrgset the numberFormat to "0"put the number of cards into loopEndput the value of (loopEnd - 2) into mainLoop -- end loop at last ¬¨-- valid cardgo first cardrepeat with counter = 1 to mainLoopif background field wun is empty then add 1 to less  -- if there's¬¨-- no entry in the field don't use it to determine the averagego nextend repeatput value of (mainLoop - less) into vargo first card -- go to the first valid cardrepeat with counter = 1 to mainLoopif background field wun = empty then add 0 to develseput value of background field wun & " " & nbr into nbrput value of ((background field wun - avrg)^2) into dev-- square the sum of the differences between the score and the¬¨-- averageadd value of dev to deviateput sqrt(deviate / var) into omega -- the standard deviationend ifgo nextend repeatset the numberFormat to "0.00"go card stats -- go back to the stats card, even though it seems ¬¨-- you've never leftset lockScreen to falseset lockMessages to falseput omega into card field StatDevend SDeviate</script>
  12. </background>
  13.